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INTRODUCTION 



FORTRAN for the CONTROL DATA ® 6400/6600 comput- 
er system is a procedural language designed for solv- 
ing problems of a mathematical or scientific nature. 
The source language is fully compatible with ASA FOR- 
TRAN. Several additional features are included in the 
language. These serve to increase the power of FOR- 
TRAN as a solution tool and broaden the scope of the 
language so that many existing FORTRAN systems be- 
come acceptable subsets of 6400/6600 FORTRAN. 

The compiler is designed to produce object code which 
takes full advantage of the high speed execution charac- 
teristics of the 6400/6600 computer systems. 



LANGUAGE FEATURES 



• Constants and variables of several types: 

integer 

single precision floating point (real) 

double precision floating point 

complex 

octal 

hollerith 

logical 

• Mixed mode arithmetic 

• Masking (Boolean) , logical and relational operators 

• Shorthand notation for logical operators and constants 

• Library functions 

• Independently compilable subprograms 

• Multiple entry points to subroutines and functions 

• Multiple subroutine exits 

• Expressions as subscripts 

• Variable dimensions 

• Variable FORMAT capability 

• Conversion formats for all data forms 

• Specification and I/O statements to allow use of ECS 

• Array reference with fewer subscripts than dimensioned 

• Hollerith constants in expressions and Data statements 

• More than one statement per line 



• Left or right -justified hollerith constants 

• Two -branch IF statements 

• NAME LIST capability 



CODE OPTIMIZATION 



Efficient code is the primary design objective of the 6400/ 
6600 FORTRAN compiler. Extensions to the optimization 
capability of previous compilers include: 

• Elimination of redundant operations where possible. 

• Evaluation of array element address by the index 
function method. 

• Critical path analysis of instruction sequences to 
maximize parallel operation. 

• Reformation of subexpressions to permit extended 
parallelism. 

• Evaluation of constant subexpressions at compile 
time. 

• Determination at compile time for each reference 
to a formal parameter to determine whether it 
should be referred to by address substitution or in- 
direct addressing. 

• Elimination of common remote parameter lists. 

• Formation of simple constants by sets rather than 
loads. 

• Elimination of branches to the next instruction. 

• Presetting of arrays with a constant pattern is 
specially handled at load time to avoid the gener- 
ation of a large binary deck. 

• Inline evaluation of some functions. 



The FORTRAN compiler processes each subprogram 
independently using a two-pass technique. The source 
language is read once from the input device . The out- 
put consists of object code , COMPASS listings and a 
source listing with diagnostic messages. 

FORTRAN operates under the SCOPE operating system. 
The objects code produced by the compiler is designed 
to operate under SCOPE. 



LANGUAGE ELEMENTS 



CONSTANTS 



The following kinds of constants are allowed: 



INTEGER 
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real constants: 14 decimal digits or less; magnitude range of 10 

through 10 322 and 

double constants: 28 decimal digits or less; magnitude range of 10 
through 10 322 and 

complex constants: two real constants. 

Two machine words are used to store double and complex constants. 

OCTAL 

Octal constants of up to 20 digits may be defined directly in the FORTRAN 
program as well as entered by input or data statements . 

HOLLERITH 

1 to 136 alphanumeric or special characters may be given as a constant 
left justified, blank filled. 

1 to 10 characters may be right justified with zero fill. Hollerith con- 
stants, also, may be defined directly in the program. 

LOGICAL 

The symbolic constants that represent the logical values true and false are: 

.TRUE. .T. 

.FALSE. .F. 



VARIABLES 



Variables may be simple or subscripted, and a subscript may contain up to 
three subscripts. 



REPLACEMENT STATEMENTS AND EXPRESSIONS 



REPLACEMENT 
STATEMENT 



The general form of the replacement statement is: 



where R is a variable and E is an expression. Expressions may be arithmetic, 
masking, relational or logical. 

The replacement statement is the only FORTRAN statement that does not rely 
on a verb or declarator to describe its action. 

Here, the character " = " is defined to mean "is replaced by". 

For example the replacement statement 

A =B 

can be read as: the value of variable A is replaced by the value of the variable 
B. 

The statement 

I = J + (K**2)/5 

instructs the processor to evaluate the expression on the right by squaring the 
variable K, dividing the result by the constant 5, adding the quotient to the var- 
iable J and assigning that sum to the variable I. 



ARITHMETIC 
EXPRESSIONS 



Arithmetic operators are: 
** exponentiation 

/ division 

* multiplication 

+ addition 

subtraction 



MASKING 
EXPRESSIONS 



RELATIONAL 
EXPRESSIONS 



Mixed mode expressions are allowed; any type (except logical) of variable or 
constant may be combined with any other type of variable or constant. 



Masking operators are: 

. AND . logical product 

. OR . logical sum 

. NOT . complement 

The statement: 

PROD = ABLE .AND. BAKER 

directs the processor to form the logical product of the variables ABLE and 
BAKER and assign the result to the variable PROD. In the general form of 
the masking expressions, p op v, the operations are as follows: 
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Relational operators are: 



.EQ. 


equal to 


.NE. 


not equal to 


.GT. 


greater than 


.GE. 


greater than or equal to 


.LT. 


less than 


,LE. 


less than or equal to 


The value of the expression, q op q , 
relation to q,,, otherwise it is False. 
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LOGICAL 
EXPRESSIONS 



The logical operators are: 



.AND. conjunction 
. OR . disjunction 

.NOT. negation 



The value of the logical expression, o op o 

X Li 



.op o , is either true or 
- n 

false. The o. are relational expressions or variables of type logical. 



(NOTE: The logical and masking operators may be abbreviated with . A. 
for .AND., .0. for .OR., and .N. for .NOT.) 
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CONTROL STATEMENTS 



STATEMENT 
IDENTIFIERS 



Statement identifiers provide numbers for reference to statements. A state- 
ment identifier may be 1 through 99999. 



GO TO 
STATEMENTS 



GO TO statements transfer control to a specified statement. 

GO TOn 
transfers control unconditionally to statement n. 



GOTOi ) (n 1) n 2 ,...n m ) 

transfers control to the statement identified by i, an integer variable, which 
has previously been assigned an integer value by the statement ASSIGN n. to i. 
The parenthetical list of statement numbers is optional. 

GO TO(n ,n ,. . . ,n ),e 
12 m 

transfers control to the statement identified by n. , where i is the integer value . 
the arithmetic expression e. 



IF STATEMENTS 



IF statements transfer control conditionally, depending upon the value of an 
expression. 



IF (expressions) n ,n ,n 

X £i O 

transfers control to statement n if the value of the arithmetic or masking ex- 
pression is negative. If the value is zero, control is transferred to statement 
n . A positive value transfers control to n . 

IF (logical expressions 

If the logical expression is true the imperative statement(s) is executed. 

Otherwise, control is transferred around it. 
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DO STATEMENTS 



IF (expression) n ,n 

arithmetic expression: transfer to statement n if non-zero, otherwise 

to statement n . 

logical expression: transfer to statement n if the expression is true, 
transfer to statement n if false. 



DO n i=m 1 ,m ,m 



Repeats the execution of all succeeding statements up to and including state- 
ment number n. The index, i, is an integer variable initially set to m . The 
DO loop is repeated the number of times necessary for i to attain the value of 
m , incremented each time through the loop by the value of m . 



CONTINUE 



CONTINUE 



Provides a no-operation instruction which transfers control to the next instruc- 
tion in sequence. It may be used to terminate a DO loop when the last state- 
ment in the loop would otherwise be a control transfer statement. 



PAUSE 



PAUSE 

or 
PAUSE n 



Causes a cessation of program operation. Execution may be resumed via 
SCOPE. 



STOP 



STOP 



or 



STOP n 
Causes program termination. 
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DATA SPECIFICATION STATEMENTS 



DIMENSION 



DIMENSION v^s ,s ,s ) ' y 2 ^ S l ,S 2 ,S 3 } ' ' ' ' 
Reserves memory locations for the arrays v ,v , . . . 



TYPE 



INTEGER list 

REAL list 

DOUBLE PRECISION list or DOUBLE list 

COMPLEX list 



LOGICAL list 

Each of the above forms defines a type of FORTRAN variable. The list is a 
string of variable names. The names may be followed by dimension informa- 
tion to provide a further means of defining arrays. 



COMMON 



COMMON/name Aist /name /list . . . 

Reserves memory locations in a named common block. All variables (or 
arrays) in the list are contained in the block designated by the corresponding 
name. One common block may be unnamed (blank) . Common blocks may be 
assigned to Extended Core Storage (ECS) by prefixing the block name with an 
asterisk. 



EQUIVALENCE 



EQUIVALENCE (v^v .v ,. 



■),(v 5 ,v 6 ,v 7 , 



Assigns variables (simple or subscripted) enclosed within each set of paren- 
theses to the same memory locations. Thus, EQUIVALENCE allows renam- 
ing of FORTRAN variables to suit the programmers convenience. 
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EXTERNAL 



EXTERNAL n,n,n,. . . 

X Li o 



Defines the names (n.) as external procedures. 



DATA 



DATA (i = value list) , (i = value list) , . 



or 



DATA i ,i , . . ./value list/i ,i , 



. /value list 



Enables initialization of variables at load time. Each i is a variable name or 
an array element name. The constants in the value lists correspond to the 
identifiers and are stored into locations assigned to the indicated variables 



. Ct-UUL iO 



kJ^ \JJT ILi , 
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SUBPROGRAM STATEMENTS 



PROGRAM 



PROGRAM (f ,f ,...f ) 

Defines the files (f .) to be used by the subprogram. 



END 



END 



Is the last statement of a subprogram . 



FUNCTION 



A function in FORTRAN terms is an arithmetic procedure which yields a 
single-value result. Functions may be declared in two ways: 

The arithmetic statement function is a macro facility offered by the com- 
piler. The programmer may, for example, write at the beginning of a sub- 
program: 

FUN(X,A,B,C)=A*X* |8 2+B*X+C 

Then in the body of the subprogram he may write : 

Z=(FUN(Y,5.,2.,4.))/2.0 

and expect the function FUN to be performed at the appropriate time in the 
expression evaluation. An arithmetic statement function is valid only with- 
in the subprogram in which it is defined. 

An independent function is a subprogram bounded by the statements: 

FUNCTION f(p ,p 2 , . . .p ) 



END 
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f is the function name and p. the formal parameters. An independent function 
is called in the same manner as an arithmetic statement function. 



SUBROUTINE 



SUBROUTINE s(p ,p , 



.P n )RETURNS(v 1 ,v 2 , 



■v ) 
n 



CALL 



END 

The above two statements are the delimiters for a subroutine subprogram. 
s is the subroutine name, and p. the formal parameters. 

A subprogram may include, as formal parameters, an array identifier and 
its dimensions in simple integer variable form. The actual dimensions are 
specified by the calling subprogram. The RETURNS phrase is optional. Each 
variable, v, is associated with a statement label specified in the CALL state- 
ment. 



CALL s(p 1 ,p n , . . .p )RETURNS(n ,n, 
12 n 1 2 



,n ) 
n 



Transfers control to a subroutine subprogram; s is the program name, and 
p. the actual parameters. 

RETURNS is optional here, also. If omitted, control returns from the sub- 
routine to the statement following the call. Otherwise each n is a statement 
label to which the called subroutine may return. 



ENTRY 



ENTRY name 



Identifies alternate entry points to a function or subroutine. When a sub- 
program is called by one of these alternate names, execution begins with 
the indicated statement. 
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RETURN RETURN 



Used within a function or subroutine to return control to the calling sub- 
program. An optional variable name (v) may be used to indicate a non- 
standard return. 



DATA TRANSMISSION STATEMENTS 
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The general form of a data transmission statement is: 

operation n, data list 

The operation specifies the transmission process and unit; n refers to a 
FORMAT statement and the data list specifies the variables (storage loca- 
tions) involved. In binary tape operations, no FORMAT statement is nec- 
essary. 



DATA LIST 



The data list consists of any number of simple or subscripted variables, 
separated by commas. If an array name appears without subscripts, the 
whole array is transmitted. Arrays may also be transmitted using nota- 
tion similar to the DO loop notation: 



FORMAT 
STATEMENT 



(((A(I,J,K,)I=l 1 ,l 2 ,l 3 ),J=m l ,m 2 ,m 3 )K=n l ,n 2 ,n 3 ) 



FORMAT (s^s^ 



,k(s ,s u ,...).. . s ) 
v a b n 



Defines the structure of BCD data. s. are the format specifications and 
k is a repetition factor: 

•••■ k i<V s b k 2 e-"Vvy- )m))) '-- 

Specifications are repeated from the last open parenthesis until the list is 
exhausted. Format specifications may be any of the following: 

Ew.d Single or double precision floating point conversion depending 

upon variable type 

Fw.d Single precision floating point conversion without explicit 

exponent field 

Gw.d Combination of E and F formats depending on variable 

magnitude 
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T Assigns beginning column for subsequent information 

Iw Decimal integer conversion 

Ow Octal integer conversion 

Aw Alphanumeric conversion left justified in storage with blank 

fill 

Rw Alphanumeric conversion, right justified in storage with 

zero fill 

Lw Logical conversion 

wHf Heading and labeling information 

*f* Heading and labeling information 

wX Intra -record spacing 

/ Inter -record spacing 

Format control may be variable . An array element name is used in an 
input/output statement in place of a FORMAT identifier. 



PUNCHED CARD 
RECORDS 



READ n.list 

PUNCH n.list 

Punched card records may be transmitted to the punch output unit or from 
the standard input unit. 



PRINTER RECORDS PRINT n, list 

Transmits records to the standard output unit. 
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BCD RECORDS 



READ (u, n) list 

WRITE (u,n)list 

Transmit records between memory and logical unit u. 



BINARY RECORDS 



NON-STANDARD 
STATEMENTS 



READ (u)list 

WRITE (u)list 

Transmit binary records to or from the logical unit specified. 

BUFFER IN (u,p)(fi,li) 
BUFFER OUT (u,p)(fi,li) 

u is a logical unit number 

p is a parity key 

f i is the identifier of the first word of the block to be transmitted 

li is the identifier of the last word of the block to be transmitted 

READ ECS (cmi,eci,n) 

WRITE ECS (cmi,eci,n) 

cmi is the identifier of a central memory address 

eci is the identifier of an address in Extended Core Storage 

n is the number of words to be transmitted 

READ MS (fn(i),k) 
WRITE MS (fn(i),k) 

fn is a file identifier in mass storage (disk, drum, etc. . .) 
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i is a record ordinal within the file 
k is a FORMAT statement number 



NAMELIST 



The NAMELIST method of BCD I/O offers a simple technique for processing 
data in a free format. 

NAMELIST /n/v ,v ,v , . . . 

X Li o 

Identifies the variables v ,v , . . .etc. as belonging to the name list n. 

READ (l,n) 

Accepts input items which resemble replacement statements, 1 is a logical 
unit and n is the namelist name . 

For example: 

A=14.0,B=17.9,XTRA=0,B(3,1)=1. ,2. ,7.5 

represent samples of NAMELIST input. 

WRITE (l,n) 

Produces output in the same form. 



MAGNETIC TAPE 



REWIND u 

BACKSPACE u 

END FILE u 

If a REWIND or BACKSPACE is the next I/O operation after WRITE (tape) 
the FORTRAN I/O routine will write an end-of-file, backspace over it, and 
then execute the command, u is a logical unit number. 
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